home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / xf2.3-p / xf2 / xf2.3 / src / xfoptVersion.tcl < prev    next >
Encoding:
Text File  |  1993-12-15  |  7.5 KB  |  241 lines
  1. # Program: xf
  2. # Description: the option dialog for general options
  3. #
  4. # $Header: xfoptVersion.tcl[2.3] Wed Mar 10 12:07:24 1993 garfield@garfield frozen $
  5.  
  6. ##########
  7. # Procedure: XFOptionsVersion
  8. # Description: allow the editing of the version control options
  9. # Arguments: none
  10. # Returns: none
  11. # Sideeffects: none
  12. ##########
  13. proc XFOptionsVersion {} {
  14.   global xfConf
  15.   global xfMisc
  16.   global xfVersion
  17.  
  18.   set xfMisc(versionCommand) $xfConf(versionCommand)
  19.  
  20.   # build widget structure
  21.   XFTmpltToplevel .xfOptionsVersion 400x280 {XF version control options}
  22.  
  23.   XFTmpltFrame .xfOptionsVersion.frame1 0
  24.  
  25.   button .xfOptionsVersion.frame1.ok \
  26.     -text {OK} \
  27.     -command {
  28.       XFOptionsVersionSet
  29.       destroy .xfOptionsVersion}
  30.  
  31.   button .xfOptionsVersion.frame1.save \
  32.     -text {Save + OK} \
  33.     -command {
  34.       XFOptionsVersionSet
  35.       XFProcOptionsSaveOptions
  36.       destroy .xfOptionsVersion}
  37.  
  38.   button .xfOptionsVersion.frame1.cancel \
  39.     -text {Cancel} \
  40.     -command {destroy .xfOptionsVersion}
  41.  
  42.   XFTmpltFrame .xfOptionsVersion.frame2 0
  43.  
  44.   checkbutton .xfOptionsVersion.frame2.version \
  45.     -text {Use version control} \
  46.     -variable xfMisc(versionCommand)
  47.  
  48.   XFTmpltFrame .xfOptionsVersion.frame3 0
  49.  
  50.   XFTmpltFrame .xfOptionsVersion.frame3.frame5
  51.  
  52.   label .xfOptionsVersion.frame3.frame5.message2 \
  53.     -anchor e \
  54.     -padx 0 \
  55.     -pady 0 \
  56.     -text {List:}
  57.  
  58.   label .xfOptionsVersion.frame3.frame5.message3 \
  59.     -anchor e \
  60.     -padx 0 \
  61.     -pady 0 \
  62.     -text {List (long):}
  63.  
  64.   label .xfOptionsVersion.frame3.frame5.message4 \
  65.     -anchor e \
  66.     -padx 0 \
  67.     -pady 0 \
  68.     -text {List default (long):}
  69.  
  70.   label .xfOptionsVersion.frame3.frame5.message5 \
  71.     -anchor e \
  72.     -padx 0 \
  73.     -pady 0 \
  74.     -text {Retrieve:}
  75.  
  76.   label .xfOptionsVersion.frame3.frame5.message6 \
  77.     -anchor e \
  78.     -padx 0 \
  79.     -pady 0 \
  80.     -text {Retrieve default:}
  81.  
  82.   label .xfOptionsVersion.frame3.frame5.message7 \
  83.     -anchor e \
  84.     -padx 0 \
  85.     -pady 0 \
  86.     -text {Remove:}
  87.  
  88.   label .xfOptionsVersion.frame3.frame5.message8 \
  89.     -anchor e \
  90.     -padx 0 \
  91.     -pady 0 \
  92.     -text {Save:}
  93.  
  94.   label .xfOptionsVersion.frame3.frame5.message9 \
  95.     -anchor e \
  96.     -padx 0 \
  97.     -pady 0 \
  98.     -text {Save with comment:}
  99.  
  100.   label .xfOptionsVersion.frame3.frame5.message10 \
  101.     -anchor e \
  102.     -padx 0 \
  103.     -pady 0 \
  104.     -text {Show:}
  105.  
  106.   label .xfOptionsVersion.frame3.frame5.message11 \
  107.     -anchor e \
  108.     -padx 0 \
  109.     -pady 0 \
  110.     -text {Show default:}
  111.  
  112.   label .xfOptionsVersion.frame3.frame5.message12 \
  113.     -anchor e \
  114.     -padx 0 \
  115.     -pady 0 \
  116.     -text {Test:}
  117.  
  118.   XFTmpltFrame .xfOptionsVersion.frame3.frame6
  119.  
  120.   entry .xfOptionsVersion.frame3.frame6.list \
  121.     -relief sunken
  122.   .xfOptionsVersion.frame3.frame6.list insert 0 $xfVersion(list)
  123.  
  124.   entry .xfOptionsVersion.frame3.frame6.listlong \
  125.     -relief sunken
  126.   .xfOptionsVersion.frame3.frame6.listlong insert 0 $xfVersion(listLong)
  127.  
  128.   entry .xfOptionsVersion.frame3.frame6.listlongdef \
  129.     -relief sunken
  130.   .xfOptionsVersion.frame3.frame6.listlongdef insert 0 \
  131.     $xfVersion(listLongDefault)
  132.  
  133.   entry .xfOptionsVersion.frame3.frame6.retrv \
  134.     -relief sunken
  135.   .xfOptionsVersion.frame3.frame6.retrv insert 0 $xfVersion(retrv)
  136.  
  137.   entry .xfOptionsVersion.frame3.frame6.retrvdef \
  138.     -relief sunken
  139.   .xfOptionsVersion.frame3.frame6.retrvdef insert 0 $xfVersion(retrvDefault)
  140.  
  141.   entry .xfOptionsVersion.frame3.frame6.rm \
  142.     -relief sunken
  143.   .xfOptionsVersion.frame3.frame6.rm insert 0 $xfVersion(rm)
  144.  
  145.   entry .xfOptionsVersion.frame3.frame6.save \
  146.     -relief sunken
  147.   .xfOptionsVersion.frame3.frame6.save insert 0 $xfVersion(save)
  148.  
  149.   entry .xfOptionsVersion.frame3.frame6.savemess \
  150.     -relief sunken
  151.   .xfOptionsVersion.frame3.frame6.savemess insert 0 $xfVersion(saveMessage)
  152.  
  153.   entry .xfOptionsVersion.frame3.frame6.show \
  154.     -relief sunken
  155.   .xfOptionsVersion.frame3.frame6.show insert 0 $xfVersion(show)
  156.  
  157.   entry .xfOptionsVersion.frame3.frame6.showdef \
  158.     -relief sunken
  159.   .xfOptionsVersion.frame3.frame6.showdef insert 0 $xfVersion(showDefault)
  160.  
  161.   entry .xfOptionsVersion.frame3.frame6.test \
  162.     -relief sunken
  163.   .xfOptionsVersion.frame3.frame6.test insert 0 $xfVersion(test)
  164.  
  165.   # packing
  166.   pack append .xfOptionsVersion.frame1 \
  167.               .xfOptionsVersion.frame1.ok {left fill expand} \
  168.               .xfOptionsVersion.frame1.save {left fill expand} \
  169.               .xfOptionsVersion.frame1.cancel {left fill expand}
  170.   pack append .xfOptionsVersion.frame2 \
  171.               .xfOptionsVersion.frame2.version {left fill expand}
  172.   pack append .xfOptionsVersion.frame3.frame5 \
  173.               .xfOptionsVersion.frame3.frame5.message2 {top fillx} \
  174.               .xfOptionsVersion.frame3.frame5.message3 {top fillx} \
  175.               .xfOptionsVersion.frame3.frame5.message4 {top fillx} \
  176.               .xfOptionsVersion.frame3.frame5.message5 {top fillx} \
  177.               .xfOptionsVersion.frame3.frame5.message6 {top fillx} \
  178.               .xfOptionsVersion.frame3.frame5.message7 {top fillx} \
  179.               .xfOptionsVersion.frame3.frame5.message8 {top fillx} \
  180.               .xfOptionsVersion.frame3.frame5.message9 {top fillx} \
  181.               .xfOptionsVersion.frame3.frame5.message10 {top fillx} \
  182.               .xfOptionsVersion.frame3.frame5.message11 {top fillx} \
  183.               .xfOptionsVersion.frame3.frame5.message12 {top fillx}
  184.   pack append .xfOptionsVersion.frame3.frame6 \
  185.               .xfOptionsVersion.frame3.frame6.list {top fillx} \
  186.               .xfOptionsVersion.frame3.frame6.listlong {top fillx} \
  187.               .xfOptionsVersion.frame3.frame6.listlongdef {top fillx} \
  188.               .xfOptionsVersion.frame3.frame6.retrv {top fillx} \
  189.               .xfOptionsVersion.frame3.frame6.retrvdef {top fillx} \
  190.               .xfOptionsVersion.frame3.frame6.rm {top fillx} \
  191.               .xfOptionsVersion.frame3.frame6.save {top fillx} \
  192.               .xfOptionsVersion.frame3.frame6.savemess {top fillx} \
  193.               .xfOptionsVersion.frame3.frame6.show {top fillx} \
  194.               .xfOptionsVersion.frame3.frame6.showdef {top fillx} \
  195.               .xfOptionsVersion.frame3.frame6.test {top fillx}
  196.   pack append .xfOptionsVersion.frame3 \
  197.               .xfOptionsVersion.frame3.frame5 {left filly} \
  198.               .xfOptionsVersion.frame3.frame6 {left fill expand}
  199.   pack append .xfOptionsVersion \
  200.               .xfOptionsVersion.frame1 {bottom fill} \
  201.               .xfOptionsVersion.frame2 {top fill} \
  202.               .xfOptionsVersion.frame3 {top fill expand}
  203.  
  204.   XFBindFormConnect .xfOptionsVersion.frame3.frame6
  205. }
  206.  
  207. ##########
  208. # Procedure: XFOptionsVersionSet
  209. # Description: set the new options
  210. # Arguments: none
  211. # Returns: none
  212. # Sideeffects: none
  213. ##########
  214. proc XFOptionsVersionSet {} {
  215.   global xfConf
  216.   global xfMisc
  217.   global xfVersion
  218.  
  219.   set xfConf(versionCommand) $xfMisc(versionCommand)
  220.   set xfVersion(list) [.xfOptionsVersion.frame3.frame6.list get]
  221.   set xfVersion(listLong) [.xfOptionsVersion.frame3.frame6.listlong get]
  222.   set xfVersion(listLongDefault) \
  223.     [.xfOptionsVersion.frame3.frame6.listlongdef get]
  224.   set xfVersion(retrv) [.xfOptionsVersion.frame3.frame6.retrv get]
  225.   set xfVersion(retrvDefault) [.xfOptionsVersion.frame3.frame6.retrvdef get]
  226.   set xfVersion(rm) [.xfOptionsVersion.frame3.frame6.rm get]
  227.   set xfVersion(save) [.xfOptionsVersion.frame3.frame6.save get]
  228.   set xfVersion(saveMessage) [.xfOptionsVersion.frame3.frame6.savemess get]
  229.   set xfVersion(show) [.xfOptionsVersion.frame3.frame6.show get]
  230.   set xfVersion(showDefault) [.xfOptionsVersion.frame3.frame6.showdef get]
  231.   set xfVersion(test) [.xfOptionsVersion.frame3.frame6.test get]
  232.  
  233.   # test if we can find version control
  234.   if {[catch "exec $xfVersion(test)" xfResult]} {
  235.     set xfConf(versionCommand) 0
  236.   }
  237. }
  238.  
  239. # eof
  240.  
  241.